home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / axelf.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-02-22  |  3.8 KB  |  84 lines
  1. 1  SCREEN 0,0,0
  2. 2  WIDTH 80
  3. 10  CLS:KEY OFF
  4. 20  GOSUB 700
  5. 30  PLAY "o2 l4"
  6. 40  PLAY"f#8 p8 a8. f#16 f#16 f#16 b8 f#8 e8"
  7. 50  PLAY"f#8 p8 o3 c#8 o2 f#16 F#16 F#16 o3 d8 c#8 o2 a8"
  8. 60  PLAY"F#8 O3 C#8 F#8 O2 F#16 e16 E16 E16 C#8 G#8 F#8 F# P2"
  9. 70  PLAY"f#8 p8 a8. f#16 f#16 f#16 b8 f#8 e8"
  10. 80  PLAY"f#8 p8 o3 c#8 o2 f#16 F#16 F#16 o3 d8 c#8 o2 a8"
  11. 90  PLAY"F#8 O3 C#8 F#8 O2 F#16 e16 E16 E16 C#8 G#8 F#8 F# P2"
  12. 100  PLAY"o1 f#8 p8 o2 f#8. o1 e16 e16 o2 e16 o1 c#8 o2 c#8 o1 e8"
  13. 110  PLAY"f#8 p8 o2 f#8 p8 p16 o1 c#16 o2 c#8 e8 f#8"
  14. 120  PLAY"o1 d8 p8 o2 d8. o1 e16 e16 o2 e16 o1 c#8 e8 f#8"
  15. 130  PLAY"o2 f#4 p4 p16 e16 o1 c#8 b8 a8"
  16. 140  PLAY"o1 f#8 p8 o2 f#8. o1 e16 e16 o2 e16 o1 c#8 o2 c#8 o1 e8"
  17. 150  PLAY"f#8 p8 o2 f#8 p8 p16 o1 c#16 o2 c#8 e8 f#8"
  18. 160  PLAY"o1 d8 p8 o2 d8. o1 e16 e16 o2 e16 o1 c#8 e8 f#8"
  19. 170  PLAY"o2 f#4 p4 p16 e16 o1 c#8 b8 a8"
  20. 180  PLAY"f#8 p8 a8. f#16 f#16 f#16 b8 f#8 e8"
  21. 190  PLAY"f#8 p8 o3 c#8 o2 f#16 F#16 F#16 o3 d8 c#8 o2 a8"
  22. 200  PLAY"F#8 O3 C#8 F#8 O2 F#16 e16 E16 E16 C#8 G#8 F#8 F# P2"
  23. 210  PLAY"f#8 p8 a8. f#16 f#16 f#16 b8 f#8 e8"
  24. 220  PLAY"f#8 p8 o3 c#8 o2 f#16 F#16 F#16 o3 d8 c#8 o2 a8"
  25. 230  PLAY"F#8 O3 C#8 F#8 O2 F#16 e16 E16 E16 C#8 G#8 F#8 F# P2"
  26. 240  PLAY"o3 p8 c#8 c#8 c#16 e16 p16 e8 e16 d#8 d#8 d#8 c#8 c#8 c#16"
  27. 250  PLAY"e16 p16 e16 d8 c#8 o2 a8 p8 a8 a8 a8 a16 b8 b16 p16 b8 b16 b8"
  28. 260  PLAY"o3 c#8 c#8 c#8 o2 b16 o3 c#8 c#16 p16 c#8 p8"
  29. 270  PLAY"o3 p8 c#8 c#8 c#16 e16 p16 e8 e16 d#8 d#8 d#8 c#8 c#8 c#16"
  30. 280  PLAY"e16 p16 e16 d8 c#8 o2 a8 p8 a8 a8 a8 a16 b8 b16 p16 b8 b16 b8"
  31. 290  PLAY"o3 c#8 c#8 c#8 o2 b16 o3 c#8 c#16 p16 c#8 p8"
  32. 300  PLAY"o1 f#8 p8 o2 f#8. o1 e16 e16 o2 e16 o1 c#8 o2 c#8 o1 e8"
  33. 310  PLAY"f#8 p8 o2 f#8 p8 p16 o1 c#16 o2 c#8 e8 f#8"
  34. 320  PLAY"o1 d8 p8 o2 d8. o1 e16 e16 o2 e16 o1 c#8 e8 f#8"
  35. 330  PLAY"o2 f#4 p4 p16 e16 o1 c#8 b8 a8"
  36. 340  PLAY"o1 f#8 p8 o2 f#8. o1 e16 e16 o2 e16 o1 c#8 o2 c#8 o1 e8"
  37. 350  PLAY"f#8 p8 o2 f#8 p8 p16 o1 c#16 o2 c#8 e8 f#8"
  38. 360  PLAY"o1 d8 p8 o2 d8. o1 e16 e16 o2 e16 o1 c#8 e8 f#8"
  39. 370  PLAY"o2 f#4 p4 p16 e16 o1 c#8 b8 a8"
  40. 380  PLAY"f#8 p8 a8. f#16 f#16 f#16 b8 f#8 e8"
  41. 390  PLAY"f#8 p8 o3 c#8 o2 f#16 F#16 F#16 o3 d8 c#8 o2 a8"
  42. 400  PLAY"F#8 O3 C#8 F#8 O2 F#16 e16 E16 E16 C#8 G#8 F#8 F# P2 p4"
  43. 410  PLAY"f#8 p8 a8. f#16 f#16 f#16 b8 f#8 e8"
  44. 420  PLAY"f#8 p8 o3 c#8 o2 f#16 F#16 F#16 o3 d8 c#8 o2 a8"
  45. 430  PLAY"F#8 O3 C#8 F#8 O2 F#16 e16 E16 E16 C#8 G#8 F#8 F# P2 p4"
  46. 440  PLAY"a8. e16 e8 a8 a16 e8. a8 e8 "
  47. 450  PLAY"a8. e16 e8 a8 a16 e8. a8 e8 "
  48. 460  PLAY"a8. e16 e8 a8 a16 e8. a8 e8 "
  49. 540  PLAY"o3 e16 d16 O2 b16 a16 a16 b8 O3 d16 e8 d8 O2 b8 a8"
  50. 550  PLAY"o3 e16 d16 O2 b16 a16 a16 b8 O3 d16 e8 d8 O2 b8 a8"
  51. 560  PLAY"o3 e16 d16 O2 b16 a16 a16 b8 O3 d16 e8 d8 O2 b8 a8"
  52. 570  PLAY"o3 e16 d16 O2 b16 a16 a16 b8 O3 d16 e8 d8 O2 b8 a8"
  53. 580  PLAY"o3 p8 c#8 c#8 c#16 e16 p16 e8 e16 d#8 d#8 d#8 c#8 c#8 c#16"
  54. 590  PLAY"e16 p16 e16 d8 c#8 o2 a8 p8 a8 a8 a8 a16 b8 b16 p16 b8 b16 b8"
  55. 600  PLAY"o3 c#8 c#8 c#8 o2 b16 o3 c#8 c#16 p16 c#8 p8"
  56. 610  PLAY"o3 p8 c#8 c#8 c#16 e16 p16 e8 e16 d#8 d#8 d#8 c#8 c#8 c#16"
  57. 620  PLAY"e16 p16 e16 d8 c#8 o2 a8 p8 a8 a8 a8 a16 b8 b16 p16 b8 b16 b8"
  58. 630  PLAY"o3 c#8 c#8 c#8 o2 b16 o3 c#8 c#16 p16 c#8 p8"
  59. 640  PLAY"a8 a8 a8 a16 b8 b16 p16 b8 b16 b8"
  60. 650  PLAY"o3 c#8 c#8 c#8 o2 b16 o3 c#8 c#16 p16 c#8 p8"
  61. 660  PLAY"f#8 p8 a8. f#16 f#16 f#16 b8 f#8 e8"
  62. 670  PLAY"f#8 p8 o3 c#8 o2 f#16 F#16 F#16 o3 d8 c#8 o2 a8"
  63. 680  PLAY"F#8 O3 C#8 F#8 O2 F#16 e16 E16 E16 C#8 G#8 F#8 F# P2 p4 o3 f#4 p2."
  64. 690  END
  65. 700  CLS
  66. 710  LOCATE 5,20:FOR N=1 TO 42:PRINT CHR$(196);
  67. 720  NEXT
  68. 730  LOCATE 10,20:FOR N=1 TO 42:PRINT CHR$(196);
  69. 740  NEXT
  70. 750  LOCATE 5,19:PRINT CHR$(218):LOCATE 5,62:PRINT CHR$(191):LOCATE 10,19:PRINT CHR$(192):LOCATE 10,62:PRINT CHR$(217)
  71. 760  FOR N=6 TO 9
  72. 770  LOCATE N,1:PRINT TAB(19) CHR$(179) SPC(42) CHR$(179)
  73. 780  NEXT
  74. 790  LOCATE 6,33:PRINT ">Famous Music<"
  75. 800  PRINT
  76. 810  LOCATE 8,38:PRINT "from"
  77. 820  LOCATE 9,33:PRINT "Darren Mckeeman"
  78. 830  LOCATE 12,26:PRINT "The Axel F. Theme On a Computer"
  79. 840  LOCATE 22,1:FOR N=1 TO 80:PRINT CHR$(196);
  80. 850  NEXT
  81. 860  PRINT SPC(27)"By Harold Faltermeyer"
  82. 870  RETURN
  83. 65399  '** DONE - PRESS ENTER TO RETURN TO MENU **<UNK! {0007}><UNK! {0007}>
  84.